home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / ace_gpl_release / prgs / turtle / torus.b < prev    next >
Encoding:
Text File  |  1996-08-28  |  252 b   |  26 lines
  1. '..Torus
  2.  
  3. defint a-z
  4.  
  5. screen 1,640,200,1,2
  6. window 1,,(0,10)-(640,200),32,1
  7.  
  8. penup
  9. setxy 280,110
  10. pendown
  11.  
  12. for i=1 to 36
  13.  for j=1 to 72
  14.    forward 5
  15.    turnright 5
  16.  next
  17.  forward 3
  18.  turnright 10
  19. next
  20.  
  21. while inkey$=""
  22. wend 
  23.  
  24. window close 1
  25. screen close 1
  26.